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TTITLE ‘EDTS - nm @ text buffer’ 
MODULE EDTSUFOPNEGY «Pe 
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® COPYRIGHT off 1978, 0282 1982, 1984 B 
® DIGITAL QUIPHENT PORATION, MAYNARS. MASSACHUSETTS. 
* ALL RIGH SR RENT COR 


* THIS SOFTWARE IS F ui ence UNDER A LICENSE AND MAY BE USED AND og 


* ONLY ton Ge thes WITH THE TERMS OF tae 
* COPIES THEREOF = NOT BE PROV 


Tints AND A 


* TRANSFERRED. 


* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


* AND SHOULD 
* CORPORATION. 


* DIGITAL ASSUMES NO RESPONSIBIL 
* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


NO SOF TWARE OTH ER 
IDED OR OTHERWISE MADE AVAILABLE TO ANY 
* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


ITY FOR THE USE OR RELIABILITY OF ITS 
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i 1-005 


tee 
i FACILITY: EDT == The DEC Standard Editor 
i ABSTRACT: 


Open (or create) a text buffer. 


i ENVIRONMENT: Runs at any access mode - AST reentrant 
i AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 


! MODIFIED BY: 
| 1-001 - Original. bus 2sere -1981. This module was crated by 


entrect ing routine EDTSSNEW it 4 module EDTW 
! 4 § ~ pyeveer pee aga s en 1981 
! 1- Fix module name. Mar-19 


Put edt$$wf_nxt sy in Line. STs. 11-Oct-1982 
Improve the appearance of the Listing. JBS 20-Jun-1983 
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So 


DTISWFOPNRUF - open @ text buffer 1-30 -Sep-19 vA 
ep Ttinee BUF = open (or create) a text buffer 127368718 98: 92: % DI 
ZSBTTL "EDTSSNEW_BUF = open (or create) a text buffer’ 
—_see ! Open (or create) a text buffer 


eo 
2 


X- 
SK 


‘oe 
FUNCTIONAL DESCRIPTION: 
This op ay opens (or ky text buffer. The text buffer 
pee isha. ain palin no Lines ryt .8 * "bsee an associated input file. 
is initialized to reflect this state. 


| 
| 
| 
| 
| 
| 
FORMAL PARAMETERS : 
| 


' 

' 

' 

' 

1 

' 

' NONE 
' 

i IMPLICIT INPUTS: 
i NONE 
' 

{ IMPLICIT OUTPUTS: 
' 

' 

7 

' 

1 

' 

! 

' 

‘ 

4 
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EDTSSA_CUR_BUF 

i ROUTINE VALUE: 

i NONE 

i SIDE E° FECTS: 

i NONE 
BEGIN 
EXTERNAL | ROU 

ED TSSRD- 

EXTERNA 

EDTS$$G_WK_AVAIL 

EDT$$G_WK-GRTST Téux 

EDTSS$A_CUR_BUF oO REE TBCB_BLOCK; ' Current text buffer control block 


IF (.EDTSSG_WK_AVAIL NEQ 0) 
THEN 


TINE 
“Tins. : NOVALUE, 


EDTSSA. CUR_BUF C[TBCB_FIRST BUKT) = .EDT$$G_WK_AVAIL; 
prssA. CUR-BUF CTBCB-LAST_BUKT) = .EDTS$$G_QK_AVAIL; 


Rst Bu BU KI] = = .EDT$$G_WK_GRTSTBUK; 


= .EDT$$G_Qk_GRISTBUK; 


GIN 
S34 A_CUR_BUF CTBCB_FI 
aaa =CUR-BUF CTBCB-LA 
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etee «OED TEtidurbur ~ "Seon (ee creutes o text buffer Elberos 95:98 8s UISCSUMGMASTERSCEDT secSuropneur.eLiet?” «34. 
ee 


4 af DISSWF _NEWBUK (0, 0); 
1 DTSSRD_ILN (); 
ND; ! of routine EDTSSNEW_BUF 


So 


1 
; 61465 


ew EDTSWFOPNBUF = open a text buffer | 


TITLE EDT 

-IDENT \vO 

-EXTRN EDTSSWF war EDTSSRD_ILN 
-EXTRN EDTS$G_OK_AVAIL 

-EXTRN EDTS$G_WK ~GRTSTBUK 

-EXTRN EDTSSA_CUR_BUF 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


er * 998 ENTRY EDTSSNEW ow? fone nothing ; 
39 00000006 DO 0000 MOVL ee TSA. cOr RO : 
1 000000006 9 dO 00 MOVL DT$$G_wWK RAWAIL, R1 : 
12 0001 BNEQ $ : 

51 000000006 DO 0001 MOVL cOTSSs WK_GRTSTBUK, R1 ; 0709 
Ag 1 80 0019 1$ MOV » 14TROT ; 

10 A 1 8 0010 MOVW RI 16¢ ; 9719 

06 ; #8 00093 EALLS ag NEWBUK ‘be 
aitttddts 88 $ FB OO02A CALLS #0, EDTSSRD_ILN : 0714 
04 00031 RET ; 0715 


; Routine Size: 50 bytes, Routine Base: _EDTSCODE + 0000 


1*6 orig 1 
0717 1 !<BLF/PAGE> 
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10 
EDTSwF F EDTSWFOPNBUF = open a text buffe 1b-Sep-1 4 9: VAX-11 Bliss-32 V4.0-74 
you-000 EDTSSN i ~Open. (or create) e text buffer 14-Sep- 1984 93: 83 a1 DISKSVMSMASTER: CED. SRC JWFOPNBUF .BLI; ad 
; 149 718 1€E ! of Le EDTSWFOPNBUF 
136 Or9 |e ! of module E NBU 
3 (1 720 0 ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes 
: EDTSCODE 50 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


Library Statistics 


ooenenm Symbols oco-o--- Pages Processing 
File Total Loaded Percent Mapped Time 
$255SDUA g: EDT.SRCJEDT.L32;1 377 24 3 40 00:00.2 
$255$DUA28: CEDT.SRCIPSECTS.L32;1 2 1 5 7 00:00.1 


COMMAND QUALIFIERS 
EEE) ne RRO et SOLS. BS TEAL APT SUELO OT RAL EOAEE LL OME ESET CPU FOR ORO TP MSRC$: WF OPNBUF .BLI/UPDATE=(ENHS$: WF OP 


size: 50 code + 0 data bytes 
un Time 0: a3 3 
hey Time: 
Lines/CPU Min: oes" 
ponenee/sPy-wie: 12487 
Memory Used: 65 pages 
Compi'ation Complete 
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